home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / Compiler / Builtins / Integer.m < prev    next >
Encoding:
Text File  |  1990-08-16  |  2.6 KB  |  89 lines
  1. % 
  2. % @(#)Integer.m    1.1  3/6/87
  3. %
  4. export _IntegerObject to "Builtins"
  5.  
  6. const _IntegerObject == immutable object _IntegerObject
  7.   export getSignature, create
  8.   const IntegerType == immutable type IntegerType
  9.     function + [o : Integer] -> [r : Integer]
  10.       % r <- self + o
  11.     function - [o : Integer] -> [r : Integer]
  12.       % r <- self - o
  13.     function * [o : Integer] -> [r : Integer]
  14.       % r <- self * o
  15.     function / [o : Integer] -> [r : Integer]
  16.       % r <- self / o
  17.     function # [o : Integer] -> [r : Integer]
  18.       % r <- self % o
  19.     function > [o : Integer] -> [r : Boolean]
  20.       % r <- self > o
  21.     function >= [o : Integer] -> [r : Boolean]
  22.       % r <- self >= o
  23.     function < [o : Integer] -> [r : Boolean]
  24.       % r <- self < o
  25.     function <= [o : Integer] -> [r : Boolean]
  26.       % r <- self <= o
  27.     function = [o : Integer] -> [r : Boolean]
  28.       % r <- self = o
  29.     function != [o : Integer] -> [r : Boolean]
  30.       % r <- self != o
  31.     function asString -> [r : String]
  32.       % s is set to a string with no leading 0's, decimal rep.
  33.     function ~ -> [r : Integer]
  34.       % r <- negate self
  35.     function asReal -> [ r : Real ]
  36.       % r <- self as a real
  37.   end IntegerType
  38.   function getSignature -> [result : Signature]
  39.     result <- IntegerType
  40.   end getSignature
  41.   function create [rep : String] -> [result : IntegerType]
  42.     result <- immutable object anInteger
  43.       export +, -, *, /, #, >, >=, <, <=, =, !=, asString, ~, asReal
  44.       function + [o : Integer] -> [r : Integer]
  45.     primitive 006 [r] <- [o]
  46.       end +
  47.       function - [o : Integer] -> [r : Integer]
  48.     primitive 106 [r] <- [o]
  49.       end -
  50.       function * [o : Integer] -> [r : Integer]
  51.     primitive 206 [r] <- [o]
  52.       end *
  53.       function / [o : Integer] -> [r : Integer]
  54.     primitive 306 [r] <- [o]
  55.       end /
  56.       function # [o : Integer] -> [r : Integer]
  57.     primitive 406 [r] <- [o]
  58.       end #
  59.       function > [o : Integer] -> [r : Boolean]
  60.     primitive 506 [r] <- [o]
  61.       end >
  62.       function >= [o : Integer] -> [r : Boolean]
  63.     primitive 606 [r] <- [o]
  64.       end >=
  65.       function < [o : Integer] -> [r : Boolean]
  66.     primitive 706 [r] <- [o]
  67.       end <
  68.       function <= [o : Integer] -> [r : Boolean]
  69.     primitive 806 [r] <- [o]
  70.       end <=
  71.       function = [o : Integer] -> [r : Boolean]
  72.     primitive 906 [r] <- [o]
  73.       end =
  74.       function != [o : Integer] -> [r : Boolean]
  75.     primitive 1006 [r] <- [o]
  76.       end !=
  77.       function asString -> [r : String]
  78.     primitive 1106 [r] <- []
  79.       end asString
  80.       function ~ -> [r : Integer]
  81.     primitive 1206 [r] <- []
  82.       end ~
  83.       function asReal -> [r : Real]
  84.     primitive 1306 [r] <- []
  85.       end asReal
  86.     end anInteger
  87.   end create
  88. end _IntegerObject
  89.